home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / cursor.swg / 0006_Cursor Show-Hide #2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  432 b   |  17 lines
  1.   Procedure HideCursor;  assembler;
  2.   asm
  3.     mov      ah,$01  { Function number }
  4.     mov      ch,$20
  5.     mov      cl,$00
  6.     Int      $10     { Call BIOS }
  7.   end;  { HideCursor }
  8.  
  9.  
  10.   Procedure RestoreCursor;  assembler;
  11.   asm
  12.     mov      ah,$01  { Function number }
  13.     mov      ch,$06  { Starting scan line }
  14.     mov      cl,$07  { Ending scan line }
  15.     int      $10     { Call BIOS }
  16.   end; { RestoreCursor }
  17.